/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / comint / background.elc.z / background.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 34 37 3a 32 36 20 31 | 39 39 38 0a 3b 3b 3b 20 |:47:26 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 63 6f 6d 69 |s-20.3/l|isp/comi|
|000000a0| 6e 74 2f 62 61 63 6b 67 | 72 6f 75 6e 64 2e 65 6c |nt/backg|round.el|
|000000b0| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|000000c0| 6f 6e 20 32 30 2e 34 20 | 22 45 6d 65 72 61 6c 64 |on 20.4 |"Emerald|
|000000d0| 22 20 58 45 6d 61 63 73 | 20 20 4c 75 63 69 64 2e |" XEmacs|  Lucid.|
|000000e0| 0a 3b 3b 3b 20 62 79 74 | 65 63 6f 6d 70 20 76 65 |.;;; byt|ecomp ve|
|000000f0| 72 73 69 6f 6e 20 32 2e | 32 35 20 58 45 6d 61 63 |rsion 2.|25 XEmac|
|00000100| 73 3b 20 32 32 2d 4d 61 | 72 2d 39 36 2e 0a 3b 3b |s; 22-Ma|r-96..;;|
|00000110| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|00000120| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|00000130| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|00000140| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000150| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 39 2e |ist in E|macs 19.|
|00000160| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000170| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000180| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000190| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|000001a0| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|000001b0| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|000001c0| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|000001d0| 2d 76 65 72 73 69 6f 6e | 20 22 32 30 22 29 29 29 |-version| "20")))|
|000001e0| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 60 62 61 |.    (er|ror "`ba|
|000001f0| 63 6b 67 72 6f 75 6e 64 | 2e 65 6c 27 20 77 61 73 |ckground|.el' was|
|00000200| 20 63 6f 6d 70 69 6c 65 | 64 20 66 6f 72 20 45 6d | compile|d for Em|
|00000210| 61 63 73 20 32 30 22 29 | 29 0a 0a 28 6f 72 20 28 |acs 20")|)..(or (|
|00000220| 62 6f 75 6e 64 70 20 27 | 63 75 72 72 65 6e 74 2d |boundp '|current-|
|00000230| 6c 6f 61 64 2d 6c 69 73 | 74 29 20 28 73 65 74 71 |load-lis|t) (setq|
|00000240| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000250| 73 74 20 6e 69 6c 29 29 | 0a 0a 0a 28 62 79 74 65 |st nil))|...(byte|
|00000260| 2d 63 6f 64 65 20 22 c0 | c1 21 88 c2 c3 21 88 c4 |-code ".|.!...!..|
|00000270| c1 c5 c6 c7 c8 25 87 22 | 20 5b 70 72 6f 76 69 64 |.....%."| [provid|
|00000280| 65 20 62 61 63 6b 67 72 | 6f 75 6e 64 20 72 65 71 |e backgr|ound req|
|00000290| 75 69 72 65 20 63 6f 6d | 69 6e 74 20 63 75 73 74 |uire com|int cust|
|000002a0| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 67 72 6f 75 70 |om-decla|re-group|
|000002b0| 20 6e 69 6c 20 22 46 75 | 6e 20 77 69 74 68 20 62 | nil "Fu|n with b|
|000002c0| 61 63 6b 67 72 6f 75 6e | 64 20 6a 6f 62 73 22 20 |ackgroun|d jobs" |
|000002d0| 3a 67 72 6f 75 70 20 70 | 72 6f 63 65 73 73 65 73 |:group p|rocesses|
|000002e0| 5d 20 36 29 0a 28 63 75 | 73 74 6f 6d 2d 64 65 63 |] 6).(cu|stom-dec|
|000002f0| 6c 61 72 65 2d 76 61 72 | 69 61 62 6c 65 20 27 62 |lare-var|iable 'b|
|00000300| 61 63 6b 67 72 6f 75 6e | 64 2d 73 68 6f 77 20 27 |ackgroun|d-show '|
|00000310| 74 20 22 2a 49 66 20 6e | 6f 6e 2d 6e 69 6c 2c 20 |t "*If n|on-nil, |
|00000320| 62 61 63 6b 67 72 6f 75 | 6e 64 20 6a 6f 62 73 27 |backgrou|nd jobs'|
|00000330| 20 62 75 66 66 65 72 73 | 20 61 72 65 20 73 68 6f | buffers| are sho|
|00000340| 77 6e 20 77 68 65 6e 20 | 74 68 65 79 27 72 65 20 |wn when |they're |
|00000350| 73 74 61 72 74 65 64 2e | 22 20 3a 74 79 70 65 20 |started.|" :type |
|00000360| 27 62 6f 6f 6c 65 61 6e | 20 3a 67 72 6f 75 70 20 |'boolean| :group |
|00000370| 27 62 61 63 6b 67 72 6f | 75 6e 64 29 0a 28 63 75 |'backgro|und).(cu|
|00000380| 73 74 6f 6d 2d 64 65 63 | 6c 61 72 65 2d 76 61 72 |stom-dec|lare-var|
|00000390| 69 61 62 6c 65 20 27 62 | 61 63 6b 67 72 6f 75 6e |iable 'b|ackgroun|
|000003a0| 64 2d 73 65 6c 65 63 74 | 20 27 6e 69 6c 20 22 2a |d-select| 'nil "*|
|000003b0| 49 66 20 6e 6f 6e 2d 6e | 69 6c 2c 20 62 61 63 6b |If non-n|il, back|
|000003c0| 67 72 6f 75 6e 64 20 6a | 6f 62 73 27 20 62 75 66 |ground j|obs' buf|
|000003d0| 66 65 72 73 20 61 72 65 | 20 73 65 6c 65 63 74 65 |fers are| selecte|
|000003e0| 64 20 77 68 65 6e 20 74 | 68 65 79 27 72 65 20 73 |d when t|hey're s|
|000003f0| 74 61 72 74 65 64 2e 22 | 20 3a 74 79 70 65 20 27 |tarted."| :type '|
|00000400| 62 6f 6f 6c 65 61 6e 20 | 3a 67 72 6f 75 70 20 27 |boolean |:group '|
|00000410| 62 61 63 6b 67 72 6f 75 | 6e 64 29 0a 23 40 34 34 |backgrou|nd).#@44|
|00000420| 35 20 52 75 6e 20 43 4f | 4d 4d 41 4e 44 20 69 6e |5 Run CO|MMAND in|
|00000430| 20 74 68 65 20 62 61 63 | 6b 67 72 6f 75 6e 64 20 | the bac|kground |
|00000440| 6c 69 6b 65 20 63 73 68 | 2e 20 20 0a 41 20 6d 65 |like csh|.  .A me|
|00000450| 73 73 61 67 65 20 69 73 | 20 64 69 73 70 6c 61 79 |ssage is| display|
|00000460| 65 64 20 77 68 65 6e 20 | 74 68 65 20 6a 6f 62 20 |ed when |the job |
|00000470| 73 74 61 72 74 73 20 61 | 6e 64 20 66 69 6e 69 73 |starts a|nd finis|
|00000480| 68 65 73 2e 20 20 54 68 | 65 20 62 75 66 66 65 72 |hes.  Th|e buffer|
|00000490| 20 69 73 20 69 6e 0a 63 | 6f 6d 69 6e 74 20 6d 6f | is in.c|omint mo|
|000004a0| 64 65 2c 20 73 6f 20 79 | 6f 75 20 63 61 6e 20 73 |de, so y|ou can s|
|000004b0| 65 6e 64 20 69 6e 70 75 | 74 20 61 6e 64 20 73 69 |end inpu|t and si|
|000004c0| 67 6e 61 6c 73 20 74 6f | 20 74 68 65 20 6a 6f 62 |gnals to| the job|
|000004d0| 2e 20 20 54 68 65 20 70 | 72 6f 63 65 73 73 20 6f |.  The p|rocess o|
|000004e0| 62 6a 65 63 74 0a 69 73 | 20 72 65 74 75 72 6e 65 |bject.is| returne|
|000004f0| 64 20 69 66 20 61 6e 79 | 6f 6e 65 20 63 61 72 65 |d if any|one care|
|00000500| 73 2e 20 20 53 65 65 20 | 61 6c 73 6f 20 63 6f 6d |s.  See |also com|
|00000510| 69 6e 74 2d 6d 6f 64 65 | 20 61 6e 64 20 74 68 65 |int-mode| and the|
|00000520| 20 76 61 72 69 61 62 6c | 65 73 0a 62 61 63 6b 67 | variabl|es.backg|
|00000530| 72 6f 75 6e 64 2d 73 68 | 6f 77 20 61 6e 64 20 62 |round-sh|ow and b|
|00000540| 61 63 6b 67 72 6f 75 6e | 64 2d 73 65 6c 65 63 74 |ackgroun|d-select|
|00000550| 2e 0a 0a 4f 70 74 69 6f | 6e 61 6c 20 73 65 63 6f |...Optio|nal seco|
|00000560| 6e 64 20 61 72 67 75 6d | 65 6e 74 20 42 55 46 46 |nd argum|ent BUFF|
|00000570| 45 52 2d 4e 41 4d 45 20 | 69 73 20 61 20 62 75 66 |ER-NAME |is a buf|
|00000580| 66 65 72 20 74 6f 20 69 | 6e 73 65 72 74 20 74 68 |fer to i|nsert th|
|00000590| 65 20 6f 75 74 70 75 74 | 20 69 6e 74 6f 2e 0a 49 |e output| into..I|
|000005a0| 66 20 6f 6d 69 74 74 65 | 64 2c 20 61 20 62 75 66 |f omitte|d, a buf|
|000005b0| 66 65 72 20 6e 61 6d 65 | 20 69 73 20 63 6f 6e 73 |fer name| is cons|
|000005c0| 74 72 75 63 74 65 64 20 | 66 72 6f 6d 20 74 68 65 |tructed |from the|
|000005d0| 20 63 6f 6d 6d 61 6e 64 | 20 72 75 6e 2e 1f 0a 28 | command| run...(|
|000005e0| 64 65 66 61 6c 69 61 73 | 20 27 62 61 63 6b 67 72 |defalias| 'backgr|
|000005f0| 6f 75 6e 64 20 23 5b 28 | 63 6f 6d 6d 61 6e 64 20 |ound #[(|command |
|00000600| 26 6f 70 74 69 6f 6e 61 | 6c 20 62 75 66 66 65 72 |&optiona|l buffer|
|00000610| 2d 6e 61 6d 65 29 20 22 | c0 c1 5c 6e 1b 1c 1d c6 |-name) "|..\n....|
|00000620| c7 c8 0d 5c 22 89 14 21 | ab 85 0d 54 15 aa 71 0e |...\"..!|...T..q.|
|00000630| 09 ac 86 c7 ca 0c 5c 22 | 16 09 0e 0b ab 87 cc 0e |......\"|........|
|00000640| 09 21 88 aa 90 0e 0d ab | 86 0e 09 90 c1 91 88 ce |.!......|........|
|00000650| 0e 09 21 71 88 cf 20 88 | 0b 12 d0 d1 0e 12 5c 22 |..!q.. .|......\"|
|00000660| ab 97 0e 12 c0 94 c0 95 | 4f 1b 0e 12 d3 95 c1 4f |........|O......O|
|00000670| 16 12 d4 d5 0b 21 21 12 | 29 d6 5c 6e d7 0e 12 d8 |.....!!.|).\n....|
|00000680| b1 05 88 d9 da 0e 09 0c | 0e 1b c1 0e 1c 0e 12 44 |........|.......D|
|00000690| 25 21 1e 1d de 20 88 0e | 1d ab 8f df 0e 1d e0 5c |%!... ..|.......\|
|000006a0| 22 88 e1 e2 0d e3 0e 1d | 21 23 88 e4 16 25 0e 1d |".......|!#...%..|
|000006b0| 2c 87 22 20 5b 31 20 6e | 69 6c 20 64 65 66 61 75 |,." [1 n|il defau|
|000006c0| 6c 74 2d 64 69 72 65 63 | 74 6f 72 79 20 64 69 72 |lt-direc|tory dir|
|000006d0| 20 6a 6f 62 2d 6e 61 6d | 65 20 6a 6f 62 2d 6e 75 | job-nam|e job-nu|
|000006e0| 6d 62 65 72 20 67 65 74 | 2d 70 72 6f 63 65 73 73 |mber get|-process|
|000006f0| 20 66 6f 72 6d 61 74 20 | 22 62 61 63 6b 67 72 6f | format |"backgro|
|00000700| 75 6e 64 2d 25 64 22 20 | 62 75 66 66 65 72 2d 6e |und-%d" |buffer-n|
|00000710| 61 6d 65 20 22 2a 25 73 | 2a 22 20 62 61 63 6b 67 |ame "*%s|*" backg|
|00000720| 72 6f 75 6e 64 2d 73 65 | 6c 65 63 74 20 70 6f 70 |round-se|lect pop|
|00000730| 2d 74 6f 2d 62 75 66 66 | 65 72 20 62 61 63 6b 67 |-to-buff|er backg|
|00000740| 72 6f 75 6e 64 2d 73 68 | 6f 77 20 67 65 74 2d 62 |round-sh|ow get-b|
|00000750| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 65 72 61 |uffer-cr|eate era|
|00000760| 73 65 2d 62 75 66 66 65 | 72 20 73 74 72 69 6e 67 |se-buffe|r string|
|00000770| 2d 6d 61 74 63 68 20 22 | 5e 63 64 5b 09 20 5d 2b |-match "|^cd[. ]+|
|00000780| 5c 5c 28 5b 5e 09 20 3b | 5d 2b 5c 5c 29 5b 09 20 |\\([^. ;|]+\\)[. |
|00000790| 5d 2a 3b 5b 09 20 5d 2a | 22 20 63 6f 6d 6d 61 6e |]*;[. ]*|" comman|
|000007a0| 64 20 30 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 61 73 |d 0 file|-name-as|
|000007b0| 2d 64 69 72 65 63 74 6f | 72 79 20 65 78 70 61 6e |-directo|ry expan|
|000007c0| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 22 2d 2d 2d |d-file-n|ame "---|
|000007d0| 20 77 6f 72 6b 69 6e 67 | 20 64 69 72 65 63 74 6f | working| directo|
|000007e0| 72 79 3a 20 22 20 22 5c | 6e 25 20 22 20 3f 5c 6e |ry: " "\|n% " ?\n|
|000007f0| 20 67 65 74 2d 62 75 66 | 66 65 72 2d 70 72 6f 63 | get-buf|fer-proc|
|00000800| 65 73 73 20 63 6f 6d 69 | 6e 74 2d 65 78 65 63 20 |ess comi|nt-exec |
|00000810| 73 68 65 6c 6c 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |shell-fi|le-name |
|00000820| 73 68 65 6c 6c 2d 63 6f | 6d 6d 61 6e 64 2d 73 77 |shell-co|mmand-sw|
|00000830| 69 74 63 68 20 70 72 6f | 63 20 63 6f 6d 69 6e 74 |itch pro|c comint|
|00000840| 2d 6d 6f 64 65 20 73 65 | 74 2d 70 72 6f 63 65 73 |-mode se|t-proces|
|00000850| 73 2d 73 65 6e 74 69 6e | 65 6c 20 62 61 63 6b 67 |s-sentin|el backg|
|00000860| 72 6f 75 6e 64 2d 73 65 | 6e 74 69 6e 65 6c 20 6d |round-se|ntinel m|
|00000870| 65 73 73 61 67 65 20 22 | 5b 25 64 5d 20 25 64 22 |essage "|[%d] %d"|
|00000880| 20 70 72 6f 63 65 73 73 | 2d 69 64 20 22 42 61 63 | process|-id "Bac|
|00000890| 6b 67 72 6f 75 6e 64 22 | 20 6d 6f 64 65 2d 6e 61 |kground"| mode-na|
|000008a0| 6d 65 5d 20 38 20 28 23 | 24 20 2e 20 31 30 35 38 |me] 8 (#|$ . 1058|
|000008b0| 29 20 22 73 25 25 20 22 | 5d 29 0a 23 40 34 35 20 |) "s%% "|]).#@45 |
|000008c0| 43 61 6c 6c 65 64 20 77 | 68 65 6e 20 61 20 62 61 |Called w|hen a ba|
|000008d0| 63 6b 67 72 6f 75 6e 64 | 20 6a 6f 62 20 63 68 61 |ckground| job cha|
|000008e0| 6e 67 65 73 20 73 74 61 | 74 65 2e 1f 0a 28 64 65 |nges sta|te...(de|
|000008f0| 66 61 6c 69 61 73 20 27 | 62 61 63 6b 67 72 6f 75 |falias '|backgrou|
|00000900| 6e 64 2d 73 65 6e 74 69 | 6e 65 6c 20 23 5b 28 70 |nd-senti|nel #[(p|
|00000910| 72 6f 63 65 73 73 20 6d | 73 67 29 20 22 c0 20 19 |rocess m|sg) ". .|
|00000920| c2 8e 0b c4 98 ab 83 c5 | aa a1 c6 c7 0b 5c 22 ab |........|.....\".|
|00000930| 88 c8 0b c9 ca 4f 50 aa | 93 0b 47 cb 55 ab 83 cc |.....OP.|..G.U...|
|00000940| aa 8a 0b cb cd 4f 96 0b | cd ca 4f 50 1b ce cf d0 |.....O..|..OP....|
|00000950| 0e 11 21 0b d2 d3 0e 11 | 21 38 24 88 d4 d5 0e 11 |..!.....|!8$.....|
|00000960| 21 21 ac 87 d6 0e 11 d7 | 5c 22 aa af d8 0e 11 21 |!!......|\".....!|
|00000970| d9 73 ad a7 8a d5 0e 11 | 21 71 88 6d 1e 1a 8a 64 |.s......|!q.m...d|
|00000980| 62 88 db 0b dc dd 20 de | df 4f db b1 05 88 29 0e |b..... .|.O....).|
|00000990| 1a ab 83 64 62 88 29 e0 | d7 21 29 2b 87 22 20 5b |...db.).|.!)+." [|
|000009a0| 6d 61 74 63 68 2d 64 61 | 74 61 20 6d 73 20 28 28 |match-da|ta ms ((|
|000009b0| 73 74 6f 72 65 2d 6d 61 | 74 63 68 2d 64 61 74 61 |store-ma|tch-data|
|000009c0| 20 6d 73 29 29 20 6d 73 | 67 20 22 66 69 6e 69 73 | ms)) ms|g "finis|
|000009d0| 68 65 64 5c 6e 22 20 22 | 44 6f 6e 65 22 20 73 74 |hed\n" "|Done" st|
|000009e0| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5e 65 78 69 |ring-mat|ch "^exi|
|000009f0| 74 65 64 22 20 22 45 78 | 69 74 20 22 20 32 38 20 |ted" "Ex|it " 28 |
|00000a00| 2d 31 20 30 20 22 43 6f | 6e 74 69 6e 75 69 6e 67 |-1 0 "Co|ntinuing|
|00000a10| 22 20 31 20 6d 65 73 73 | 61 67 65 20 22 5b 25 73 |" 1 mess|age "[%s|
|00000a20| 5d 20 25 73 20 25 73 22 | 20 70 72 6f 63 65 73 73 |] %s %s"| process|
|00000a30| 2d 6e 61 6d 65 20 70 72 | 6f 63 65 73 73 20 32 20 |-name pr|ocess 2 |
|00000a40| 70 72 6f 63 65 73 73 2d | 63 6f 6d 6d 61 6e 64 20 |process-|command |
|00000a50| 62 75 66 66 65 72 2d 6e | 61 6d 65 20 70 72 6f 63 |buffer-n|ame proc|
|00000a60| 65 73 73 2d 62 75 66 66 | 65 72 20 73 65 74 2d 70 |ess-buff|er set-p|
|00000a70| 72 6f 63 65 73 73 2d 62 | 75 66 66 65 72 20 6e 69 |rocess-b|uffer ni|
|00000a80| 6c 20 70 72 6f 63 65 73 | 73 2d 73 74 61 74 75 73 |l proces|s-status|
|00000a90| 20 28 73 69 67 6e 61 6c | 20 65 78 69 74 29 20 61 | (signal| exit) a|
|00000aa0| 74 2d 65 6e 64 20 3f 5c | 6e 20 3f 5c 20 20 63 75 |t-end ?\|n ?\  cu|
|00000ab0| 72 72 65 6e 74 2d 74 69 | 6d 65 2d 73 74 72 69 6e |rrent-ti|me-strin|
|00000ac0| 67 20 31 31 20 31 39 20 | 73 65 74 2d 62 75 66 66 |g 11 19 |set-buff|
|00000ad0| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 5d 20 37 |er-modif|ied-p] 7|
|00000ae0| 20 28 23 24 20 2e 20 32 | 32 34 30 29 5d 29 0a    | (#$ . 2|240)]). |
+--------+-------------------------+-------------------------+--------+--------+